/ Developer CD Series 1994 August: Tool Chest / Dev.CD Aug 94.toast / Tool Chest / Development Platforms / Macintosh Common Lisp Related / User Contributions / oodles-of-utils.sea / oodles-of-utils / NotInROM / +ToolUtils.lisp

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0f 2b 54 6f 6f 6c 55 | 74 69 6c 73 2e 6c 69 73 |..+ToolU|tils.lis|
|00000010| 70 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |p.......|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 43 43 4c | 32 01 00 00 00 00 00 00 |.TEXTCCL|2.......|
|00000050| 00 00 00 00 00 0b 3f 00 | 00 01 ba a7 4e f4 7e a7 |......?.|....N.~.|
|00000060| 4e f4 7e 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |N.~.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 4f 25 00 00 |........|....O%..|
|00000080| 3b 3b 20 2d 2a 2d 20 70 | 61 63 6b 61 67 65 3a 20 |;; -*- p|ackage: |
|00000090| 4e 6f 74 49 6e 52 4f 4d | 20 2d 2a 2d 0d 3b 3b 3b |NotInROM| -*-.;;;|
|000000a0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000000b0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000000c0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000000d0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000000e0| 3b 3b 3b 0d 3b 3b 20 2b | 54 6f 6f 6c 55 74 69 6c |;;;.;; +|ToolUtil|
|000000f0| 73 2e 4c 69 73 70 0d 3b | 3b 0d 3b 3b 20 43 6f 70 |s.Lisp.;|;.;; Cop|
|00000100| 79 72 69 67 68 74 20 a9 | 20 31 39 39 31 20 4e 6f |yright .| 1991 No|
|00000110| 72 74 68 77 65 73 74 65 | 72 6e 20 55 6e 69 76 65 |rthweste|rn Unive|
|00000120| 72 73 69 74 79 20 49 6e | 73 74 69 74 75 74 65 20 |rsity In|stitute |
|00000130| 66 6f 72 20 74 68 65 20 | 4c 65 61 72 6e 69 6e 67 |for the |Learning|
|00000140| 20 53 63 69 65 6e 63 65 | 73 0d 3b 3b 20 41 6c 6c | Science|s.;; All|
|00000150| 20 52 69 67 68 74 73 20 | 52 65 73 65 72 76 65 64 | Rights |Reserved|
|00000160| 0d 3b 3b 0d 3b 3b 20 61 | 75 74 68 6f 72 3a 20 4d |.;;.;; a|uthor: M|
|00000170| 69 63 68 61 65 6c 20 53 | 2e 20 45 6e 67 62 65 72 |ichael S|. Engber|
|00000180| 0d 3b 3b 0d 3b 3b 20 50 | 72 6f 76 69 64 65 73 20 |.;;.;; P|rovides |
|00000190| 54 6f 6f 6c 42 6f 78 20 | 55 74 69 6c 69 74 69 65 |ToolBox |Utilitie|
|000001a0| 73 20 52 6f 75 74 69 6e | 65 73 0d 3b 3b 3b 3b 3b |s Routin|es.;;;;;|
|000001b0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000001c0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000001d0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000001e0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000001f0| 3b 0d 0d 28 65 76 61 6c | 2d 77 68 65 6e 20 28 3a |;..(eval|-when (:|
|00000200| 63 6f 6d 70 69 6c 65 2d | 74 6f 70 6c 65 76 65 6c |compile-|toplevel|
|00000210| 20 3a 6c 6f 61 64 2d 74 | 6f 70 6c 65 76 65 6c 20 | :load-t|oplevel |
|00000220| 3a 65 78 65 63 75 74 65 | 29 0d 20 20 28 72 65 71 |:execute|).  (req|
|00000230| 75 69 72 65 20 20 20 20 | 3a 4e 6f 74 49 6e 52 4f |uire    |:NotInRO|
|00000240| 4d 2d 75 29 0d 20 20 28 | 69 6e 2d 70 61 63 6b 61 |M-u).  (|in-packa|
|00000250| 67 65 20 3a 4e 6f 74 49 | 6e 52 4f 4d 29 29 0d 0d |ge :NotI|nROM))..|
|00000260| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000270| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000280| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000290| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000002a0| 3b 3b 3b 3b 3b 3b 0d 0d | 28 64 65 66 74 72 61 70 |;;;;;;..|(deftrap|
|000002b0| 2d 4e 6f 74 49 6e 52 4f | 4d 20 5f 53 63 72 65 65 |-NotInRO|M _Scree|
|000002c0| 6e 52 65 73 20 3a 6e 6f | 6e 65 20 28 28 73 63 72 |nRes :no|ne ((scr|
|000002d0| 6e 48 52 65 73 20 28 3a | 70 6f 69 6e 74 65 72 20 |nHRes (:|pointer |
|000002e0| 3a 73 69 67 6e 65 64 2d | 69 6e 74 65 67 65 72 29 |:signed-|integer)|
|000002f0| 29 20 28 73 63 72 6e 56 | 52 65 73 20 28 3a 70 6f |) (scrnV|Res (:po|
|00000300| 69 6e 74 65 72 20 3a 73 | 69 67 6e 65 64 2d 69 6e |inter :s|igned-in|
|00000310| 74 65 67 65 72 29 29 29 | 0d 20 20 28 25 70 75 74 |teger)))|.  (%put|
|00000320| 2d 77 6f 72 64 20 73 63 | 72 6e 48 52 65 73 20 28 |-word sc|rnHRes (|
|00000330| 25 67 65 74 2d 77 6f 72 | 64 20 28 25 69 6e 74 2d |%get-wor|d (%int-|
|00000340| 74 6f 2d 70 74 72 20 23 | 24 53 63 72 48 52 65 73 |to-ptr #|$ScrHRes|
|00000350| 29 29 29 0d 20 20 28 25 | 70 75 74 2d 77 6f 72 64 |))).  (%|put-word|
|00000360| 20 73 63 72 6e 56 52 65 | 73 20 28 25 67 65 74 2d | scrnVRe|s (%get-|
|00000370| 77 6f 72 64 20 28 25 69 | 6e 74 2d 74 6f 2d 70 74 |word (%i|nt-to-pt|
|00000380| 72 20 23 24 53 63 72 56 | 52 65 73 29 29 29 29 0d |r #$ScrV|Res)))).|
|00000390| 0d 0d 28 64 65 66 74 72 | 61 70 2d 4e 6f 74 49 6e |..(deftr|ap-NotIn|
|000003a0| 52 4f 4d 20 5f 47 65 74 | 49 6e 64 53 74 72 69 6e |ROM _Get|IndStrin|
|000003b0| 67 20 3a 6e 6f 6e 65 20 | 28 28 74 68 65 53 74 72 |g :none |((theStr|
|000003c0| 69 6e 67 20 28 3a 73 74 | 72 69 6e 67 20 32 35 35 |ing (:st|ring 255|
|000003d0| 29 29 20 28 73 74 72 4c | 69 73 74 49 44 20 3a 73 |)) (strL|istID :s|
|000003e0| 69 67 6e 65 64 2d 69 6e | 74 65 67 65 72 29 20 28 |igned-in|teger) (|
|000003f0| 69 6e 64 65 78 20 3a 73 | 69 67 6e 65 64 2d 69 6e |index :s|igned-in|
|00000400| 74 65 67 65 72 29 29 0d | 20 20 28 77 69 74 68 2d |teger)).|  (with-|
|00000410| 6d 61 63 70 74 72 73 20 | 28 28 73 74 72 4c 69 73 |macptrs |((strLis|
|00000420| 74 5f 68 20 28 23 5f 47 | 65 74 52 65 73 6f 75 72 |t_h (#_G|etResour|
|00000430| 63 65 20 22 53 54 52 23 | 22 20 73 74 72 4c 69 73 |ce "STR#|" strLis|
|00000440| 74 49 44 29 29 29 0d 20 | 20 20 20 28 75 6e 6c 65 |tID))). |   (unle|
|00000450| 73 73 20 28 25 6e 75 6c | 6c 2d 70 74 72 2d 70 20 |ss (%nul|l-ptr-p |
|00000460| 73 74 72 4c 69 73 74 5f | 68 29 0d 20 20 20 20 20 |strList_|h).     |
|00000470| 20 28 77 69 74 68 2d 64 | 65 72 65 66 65 72 65 6e | (with-d|ereferen|
|00000480| 63 65 64 2d 68 61 6e 64 | 6c 65 73 20 28 28 73 74 |ced-hand|les ((st|
|00000490| 72 4c 69 73 74 5f 70 20 | 73 74 72 4c 69 73 74 5f |rList_p |strList_|
|000004a0| 68 29 29 0d 20 20 20 20 | 20 20 20 20 28 6c 65 74 |h)).    |    (let|
|000004b0| 20 28 28 6e 75 6d 2d 73 | 74 72 69 6e 67 73 20 28 | ((num-s|trings (|
|000004c0| 25 67 65 74 2d 75 6e 73 | 69 67 6e 65 64 2d 77 6f |%get-uns|igned-wo|
|000004d0| 72 64 20 73 74 72 4c 69 | 73 74 5f 70 29 29 29 0d |rd strLi|st_p))).|
|000004e0| 20 20 20 20 20 20 20 20 | 20 20 28 77 68 65 6e 20 |        |  (when |
|000004f0| 28 61 6e 64 20 28 70 6c | 75 73 70 20 69 6e 64 65 |(and (pl|usp inde|
|00000500| 78 29 20 28 3c 3d 20 69 | 6e 64 65 78 20 6e 75 6d |x) (<= i|ndex num|
|00000510| 2d 73 74 72 69 6e 67 73 | 29 29 0d 20 20 20 20 20 |-strings|)).     |
|00000520| 20 20 20 20 20 20 20 28 | 25 69 6e 63 66 2d 70 74 |       (|%incf-pt|
|00000530| 72 20 73 74 72 4c 69 73 | 74 5f 70 20 32 29 0d 20 |r strLis|t_p 2). |
|00000540| 20 20 20 20 20 20 20 20 | 20 20 20 28 64 6f 74 69 |        |   (doti|
|00000550| 6d 65 73 20 28 69 20 28 | 31 2d 20 69 6e 64 65 78 |mes (i (|1- index|
|00000560| 29 29 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |)).     |        |
|00000570| 20 28 64 65 63 6c 61 72 | 65 20 28 66 69 78 6e 75 | (declar|e (fixnu|
|00000580| 6d 20 69 29 29 0d 20 20 | 20 20 20 20 20 20 20 20 |m i)).  |        |
|00000590| 20 20 20 20 28 25 69 6e | 63 66 2d 70 74 72 20 73 |    (%in|cf-ptr s|
|000005a0| 74 72 4c 69 73 74 5f 70 | 20 28 31 2b 20 28 25 67 |trList_p| (1+ (%g|
|000005b0| 65 74 2d 75 6e 73 69 67 | 6e 65 64 2d 62 79 74 65 |et-unsig|ned-byte|
|000005c0| 20 73 74 72 4c 69 73 74 | 5f 70 29 29 29 29 0d 20 | strList|_p)))). |
|000005d0| 20 20 20 20 20 20 20 20 | 20 20 20 28 23 5f 42 6c |        |   (#_Bl|
|000005e0| 6f 63 6b 4d 6f 76 65 20 | 73 74 72 4c 69 73 74 5f |ockMove |strList_|
|000005f0| 70 20 74 68 65 53 74 72 | 69 6e 67 20 28 31 2b 20 |p theStr|ing (1+ |
|00000600| 28 25 67 65 74 2d 75 6e | 73 69 67 6e 65 64 2d 62 |(%get-un|signed-b|
|00000610| 79 74 65 20 73 74 72 4c | 69 73 74 5f 70 29 29 29 |yte strL|ist_p)))|
|00000620| 29 29 29 29 29 29 0d 0d | 0d 28 64 65 66 74 72 61 |))))))..|.(deftra|
|00000630| 70 2d 4e 6f 74 49 6e 52 | 4f 4d 20 5f 47 65 74 49 |p-NotInR|OM _GetI|
|00000640| 6e 64 50 61 74 74 65 72 | 6e 20 3a 6e 6f 6e 65 20 |ndPatter|n :none |
|00000650| 28 28 74 68 65 50 61 74 | 74 65 72 6e 20 28 3a 73 |((thePat|tern (:s|
|00000660| 74 72 69 6e 67 20 32 35 | 35 29 29 20 28 70 61 74 |tring 25|5)) (pat|
|00000670| 4c 69 73 74 49 44 20 3a | 73 69 67 6e 65 64 2d 69 |ListID :|signed-i|
|00000680| 6e 74 65 67 65 72 29 20 | 28 69 6e 64 65 78 20 3a |nteger) |(index :|
|00000690| 73 69 67 6e 65 64 2d 69 | 6e 74 65 67 65 72 29 29 |signed-i|nteger))|
|000006a0| 0d 20 20 28 77 69 74 68 | 2d 6d 61 63 70 74 72 73 |.  (with|-macptrs|
|000006b0| 20 28 28 70 61 74 4c 69 | 73 74 5f 68 20 28 23 5f | ((patLi|st_h (#_|
|000006c0| 47 65 74 52 65 73 6f 75 | 72 63 65 20 22 50 41 54 |GetResou|rce "PAT|
|000006d0| 23 22 20 70 61 74 4c 69 | 73 74 49 44 29 29 29 0d |#" patLi|stID))).|
|000006e0| 20 20 20 20 28 75 6e 6c | 65 73 73 20 28 25 6e 75 |    (unl|ess (%nu|
|000006f0| 6c 6c 2d 70 74 72 2d 70 | 20 70 61 74 4c 69 73 74 |ll-ptr-p| patList|
|00000700| 5f 68 29 0d 20 20 20 20 | 20 20 28 77 69 74 68 2d |_h).    |  (with-|
|00000710| 64 65 72 65 66 65 72 65 | 6e 63 65 64 2d 68 61 6e |derefere|nced-han|
|00000720| 64 6c 65 73 20 28 28 70 | 61 74 4c 69 73 74 5f 70 |dles ((p|atList_p|
|00000730| 20 70 61 74 4c 69 73 74 | 5f 68 29 29 0d 20 20 20 | patList|_h)).   |
|00000740| 20 20 20 20 20 28 6c 65 | 74 20 28 28 6e 75 6d 2d |     (le|t ((num-|
|00000750| 70 61 74 73 20 28 25 67 | 65 74 2d 75 6e 73 69 67 |pats (%g|et-unsig|
|00000760| 6e 65 64 2d 77 6f 72 64 | 20 70 61 74 4c 69 73 74 |ned-word| patList|
|00000770| 5f 70 29 29 29 0d 20 20 | 20 20 20 20 20 20 20 20 |_p))).  |        |
|00000780| 28 77 68 65 6e 20 28 61 | 6e 64 20 28 70 6c 75 73 |(when (a|nd (plus|
|00000790| 70 20 69 6e 64 65 78 29 | 20 28 3c 3d 20 69 6e 64 |p index)| (<= ind|
|000007a0| 65 78 20 6e 75 6d 2d 70 | 61 74 73 29 29 0d 20 20 |ex num-p|ats)).  |
|000007b0| 20 20 20 20 20 20 20 20 | 20 20 28 25 69 6e 63 66 |        |  (%incf|
|000007c0| 2d 70 74 72 20 70 61 74 | 4c 69 73 74 5f 70 20 28 |-ptr pat|List_p (|
|000007d0| 2b 20 32 20 28 2a 20 38 | 20 28 31 2d 20 69 6e 64 |+ 2 (* 8| (1- ind|
|000007e0| 65 78 29 29 29 29 0d 20 | 20 20 20 20 20 20 20 20 |ex)))). |        |
|000007f0| 20 20 20 28 23 5f 42 6c | 6f 63 6b 4d 6f 76 65 20 |   (#_Bl|ockMove |
|00000800| 70 61 74 4c 69 73 74 5f | 70 20 74 68 65 50 61 74 |patList_|p thePat|
|00000810| 74 65 72 6e 20 23 2e 28 | 63 63 6c 3a 3a 72 65 63 |tern #.(|ccl::rec|
|00000820| 6f 72 64 2d 66 69 65 6c | 64 2d 6c 65 6e 67 74 68 |ord-fiel|d-length|
|00000830| 20 3a 50 61 74 74 65 72 | 6e 29 29 29 29 29 29 29 | :Patter|n)))))))|
|00000840| 29 0d 0d 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |)..;;;;;|;;;;;;;;|
|00000850| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000860| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000870| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000880| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 0d 0d 28 64 65 66 74 |;;;;;;;;|;..(deft|
|00000890| 72 61 70 2d 4e 6f 74 49 | 6e 52 4f 4d 20 5f 63 32 |rap-NotI|nROM _c2|
|000008a0| 70 73 74 72 20 3a 70 6f | 69 6e 74 65 72 20 28 28 |pstr :po|inter ((|
|000008b0| 63 73 74 72 20 28 3a 70 | 6f 69 6e 74 65 72 20 3a |cstr (:p|ointer :|
|000008c0| 63 68 61 72 61 63 74 65 | 72 29 29 29 0d 20 20 28 |characte|r))).  (|
|000008d0| 75 6e 6c 65 73 73 20 28 | 25 6e 75 6c 6c 2d 70 74 |unless (|%null-pt|
|000008e0| 72 2d 70 20 63 73 74 72 | 29 0d 20 20 20 20 28 6c |r-p cstr|).    (l|
|000008f0| 65 74 20 28 28 6c 61 73 | 74 20 28 25 67 65 74 2d |et ((las|t (%get-|
|00000900| 62 79 74 65 20 63 73 74 | 72 29 29 0d 20 20 20 20 |byte cst|r)).    |
|00000910| 20 20 20 20 20 20 28 63 | 75 72 29 0d 20 20 20 20 |      (c|ur).    |
|00000920| 20 20 20 20 20 20 28 6c | 65 6e 20 30 29 29 0d 20 |      (l|en 0)). |
|00000930| 20 20 20 20 20 28 64 65 | 63 6c 61 72 65 20 28 66 |     (de|clare (f|
|00000940| 69 78 6e 75 6d 20 6c 61 | 73 74 20 63 75 72 20 6c |ixnum la|st cur l|
|00000950| 65 6e 29 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |en).    |        |
|00000960| 20 20 20 28 64 79 6e 61 | 6d 69 63 2d 65 78 74 65 |   (dyna|mic-exte|
|00000970| 6e 74 20 6c 61 73 74 20 | 63 75 72 20 6c 65 6e 29 |nt last |cur len)|
|00000980| 29 0d 20 20 20 20 20 20 | 28 6c 6f 6f 70 0d 20 20 |).      |(loop.  |
|00000990| 20 20 20 20 20 20 28 77 | 68 65 6e 20 28 7a 65 72 |      (w|hen (zer|
|000009a0| 6f 70 20 6c 61 73 74 29 | 20 28 72 65 74 75 72 6e |op last)| (return|
|000009b0| 29 29 0d 20 20 20 20 20 | 20 20 20 28 69 6e 63 66 |)).     |   (incf|
|000009c0| 20 6c 65 6e 29 0d 20 20 | 20 20 20 20 20 20 28 73 | len).  |      (s|
|000009d0| 65 74 66 20 63 75 72 20 | 28 25 67 65 74 2d 62 79 |etf cur |(%get-by|
|000009e0| 74 65 20 63 73 74 72 20 | 6c 65 6e 29 29 0d 20 20 |te cstr |len)).  |
|000009f0| 20 20 20 20 20 20 28 25 | 70 75 74 2d 62 79 74 65 |      (%|put-byte|
|00000a00| 20 63 73 74 72 20 6c 61 | 73 74 20 6c 65 6e 29 0d | cstr la|st len).|
|00000a10| 20 20 20 20 20 20 20 20 | 28 73 65 74 66 20 6c 61 |        |(setf la|
|00000a20| 73 74 20 63 75 72 29 29 | 0d 20 20 20 20 20 20 28 |st cur))|.      (|
|00000a30| 25 70 75 74 2d 62 79 74 | 65 20 63 73 74 72 20 28 |%put-byt|e cstr (|
|00000a40| 6d 69 6e 20 6c 65 6e 20 | 32 35 35 29 29 29 29 0d |min len |255)))).|
|00000a50| 20 20 63 73 74 72 29 0d | 0d 28 64 65 66 74 72 61 |  cstr).|.(deftra|
|00000a60| 70 2d 61 6c 74 2d 6e 61 | 6d 65 20 5f 63 32 70 73 |p-alt-na|me _c2ps|
|00000a70| 74 72 50 72 6f 63 20 5f | 63 32 70 73 74 72 29 0d |trProc _|c2pstr).|
|00000a80| 0d 0d 28 64 65 66 74 72 | 61 70 2d 4e 6f 74 49 6e |..(deftr|ap-NotIn|
|00000a90| 52 4f 4d 20 5f 70 32 63 | 73 74 72 20 3a 70 6f 69 |ROM _p2c|str :poi|
|00000aa0| 6e 74 65 72 20 28 28 70 | 73 74 72 20 28 3a 73 74 |nter ((p|str (:st|
|00000ab0| 72 69 6e 67 20 32 35 35 | 29 29 29 0d 20 20 28 6c |ring 255|))).  (l|
|00000ac0| 65 74 20 28 28 6c 65 6e | 20 28 25 67 65 74 2d 75 |et ((len| (%get-u|
|00000ad0| 6e 73 69 67 6e 65 64 2d | 62 79 74 65 20 70 73 74 |nsigned-|byte pst|
|00000ae0| 72 29 29 29 0d 20 20 20 | 20 28 64 65 63 6c 61 72 |r))).   | (declar|
|00000af0| 65 20 28 66 69 78 6e 75 | 6d 20 6c 65 6e 29 29 0d |e (fixnu|m len)).|
|00000b00| 20 20 20 20 28 23 5f 42 | 6c 6f 63 6b 4d 6f 76 65 |    (#_B|lockMove|
|00000b10| 20 28 25 69 6e 63 2d 70 | 74 72 20 70 73 74 72 29 | (%inc-p|tr pstr)|
|00000b20| 20 70 73 74 72 20 6c 65 | 6e 29 0d 20 20 20 20 28 | pstr le|n).    (|
|00000b30| 25 70 75 74 2d 62 79 74 | 65 20 70 73 74 72 20 30 |%put-byt|e pstr 0|
|00000b40| 20 6c 65 6e 29 29 0d 20 | 20 70 73 74 72 29 0d 0d | len)). | pstr)..|
|00000b50| 28 64 65 66 74 72 61 70 | 2d 61 6c 74 2d 6e 61 6d |(deftrap|-alt-nam|
|00000b60| 65 20 5f 70 32 63 73 74 | 72 50 72 6f 63 20 5f 70 |e _p2cst|rProc _p|
|00000b70| 32 63 73 74 72 29 0d 0d | 3b 3b 3b 3b 3b 3b 3b 3b |2cstr)..|;;;;;;;;|
|00000b80| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000b90| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000ba0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000bb0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 0d 00 |;;;;;;;;|;;;;;;..|
|00000bc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000bd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000be0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000bf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c00| 00 00 01 00 00 00 01 68 | 00 00 00 68 00 00 00 52 |.......h|...h...R|
|00000c10| 00 00 17 77 06 45 50 50 | 43 2e 68 b4 02 00 00 00 |...w.EPP|C.h.....|
|00000c20| 54 45 58 54 4d 50 53 20 | 00 00 00 00 00 00 00 00 |TEXTMPS |........|
|00000c30| 0f 2b 54 6f 6f 6c 55 74 | 69 6c 73 2e 6c 69 73 70 |.+ToolUt|ils.lisp|
|00000c40| 02 00 00 00 54 45 58 54 | 43 43 4c 32 01 00 00 64 |....TEXT|CCL2...d|
|00000c50| 00 00 54 45 58 54 43 43 | 4c 32 01 00 00 64 00 c0 |..TEXTCC|L2...d..|
|00000c60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c70| 00 00 a5 b4 75 1e 00 00 | 0b 3f 00 00 01 ba 00 00 |....u...|.?......|
|00000c80| 00 00 0e 00 00 00 17 77 | 08 45 72 72 6f 72 73 2e |.......w|.Errors.|
|00000c90| 68 00 02 00 00 00 54 45 | 58 54 4d 50 53 20 00 00 |h.....TE|XTMPS ..|
|00000ca0| 00 00 00 00 00 00 00 00 | 17 8f 00 00 00 00 96 14 |........|........|
|00000cb0| 00 00 98 00 00 00 00 00 | 00 00 00 00 00 00 a4 16 |........|........|
|00000cc0| 39 c0 a4 16 39 c0 00 00 | 00 00 00 00 00 00 00 00 |9...9...|........|
|00000cd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 6d 65 00 13 |........|....me..|
|00000ce0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000cf0| 00 00 00 00 00 00 00 00 | 0e 00 00 00 17 77 08 45 |........|.....w.E|
|00000d00| 00 00 00 0a 00 01 00 16 | 0a 00 01 00 00 00 00 00 |........|........|
|00000d10| 00 0a 02 47 07 43 6f 75 | 72 69 65 72 00 00 00 48 |...G.Cou|rier...H|
|00000d20| 00 0a 43 6f 75 72 69 65 | 72 00 00 00 00 00 00 00 |..Courie|r.......|
|00000d30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d40| 00 00 00 06 00 08 01 02 | 01 d1 03 39 03 df 01 02 |........|...9....|
|00000d50| 01 d1 03 39 03 df 00 00 | 00 00 00 00 03 11 00 00 |...9....|........|
|00000d60| 03 11 00 00 00 77 01 00 | 00 00 01 00 00 00 01 68 |.....w..|.......h|
|00000d70| 00 00 00 68 00 00 00 52 | 00 dd a3 48 0f cc 00 00 |...h...R|...H....|
|00000d80| 00 1c 00 52 00 01 46 52 | 45 44 00 01 00 12 4d 50 |...R..FR|ED....MP|
|00000d90| 53 52 00 00 00 2a 00 02 | ff ff 00 00 00 00 00 00 |SR...*..|........|
|00000da0| 00 00 00 03 ff ff 00 00 | 00 0e 00 00 00 00 03 ed |........|........|
|00000db0| ff ff 00 00 00 1c 00 de | 8f d0 00 00 00 00 00 00 |........|........|
|00000dc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000dd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000de0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000df0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+